home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / SystemCode / alphaDefinitions.tcl < prev    next >
Encoding:
Text File  |  1997-12-08  |  5.5 KB  |  250 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  Alpha - new Tcl folder configuration
  4.  # 
  5.  #  FILE: "alphaDefinitions.tcl"
  6.  #                                    created: 26/9/97 {11:25:02 am} 
  7.  #                                last update: 8/12/97 {10:19:39 pm} 
  8.  #  Author: Vince Darley
  9.  #  E-mail: <darley@fas.harvard.edu>
  10.  #    mail: Division of Engineering and Applied Sciences, Harvard University
  11.  #          Oxford Street, Cambridge MA 02138, USA
  12.  #     www: <http://www.fas.harvard.edu/~darley/>
  13.  #  
  14.  # Reorganisation carried out by Vince Darley with much help from Tom 
  15.  # Fetherston, Johan Linde and suggestions from the Alpha-D mailing list.  
  16.  # Alpha is shareware; please register with the author using the register 
  17.  # button in the about box.
  18.  #  
  19.  # ###################################################################
  20.  ##
  21.  
  22. proc alpha::getDefinitions {} {}
  23. namespace eval keys {}
  24. namespace eval win {}
  25.  
  26. # Default settings of some global parameters (not preferences settings)
  27. # These will all be over-written by user-defs if set.
  28. set resumeRevert 0
  29. set prefixString ">\ "
  30. set suffixString "\ <--"
  31. # mapping of windows to current modes.
  32. set win::Modes("") ""
  33. # keep count of number of dirty windows.
  34. set win::NumDirty 0
  35. set win::Current ""
  36. # For mark stack.
  37. set markName 0
  38. set markStack ""
  39. set winMenu "•263"
  40. set globalMenus_curr {filesetMenu internetConfigMenu eudoraMenu}
  41. set keyboard "U.S."
  42. set oldkeyboard ""
  43.  
  44. win::SetProportions
  45.  
  46. lunion ftpSigs Arch FTCh Woof
  47. lunion texSigs OTEX *TEX *XeT MPS*
  48. lunion browserSigs MOSS MSIE dogz OlG1 HTVW
  49. lunion httpDownloadSigs MOSS MSIE dogz OlG1 Geni
  50. lunion tclshSigs WIsH TclL Geni
  51.  
  52. array set keys::specialProcs { 
  53.     "Next Stop" "ring::+"
  54.     "Next Stop Or Indent" "bind::IndentOrNextstop"
  55.     "Complete" "bind::Completion"
  56.     "Complete Or Tab" "bind::TabOrComplete"
  57.     "Prev Stop" "ring::-"
  58.     "Real Tab" "insertActualTab"
  59.     "nth Stop" "ring::nth"
  60.     "Clear All Stops" "ring::clear"
  61. }
  62.  
  63. array set keys::specialBindings {
  64.     "Complete" "<O/c"
  65.     "Prev Stop" "<U/c"
  66.     "Real Tab" "<I/c"
  67.     "nth Stop" "<B/c"
  68.     "Clear All Stops" "<U<B/c"
  69.     "Next Stop" ""
  70.     "Complete Or Tab" ""
  71.     "Next Stop Or Indent" "/c"
  72. }
  73.  
  74. # Note: the Mercution MDEF can only handle icon-suite resources
  75. # with id's from 208 to 208+255 = 463.  Hence many of the little
  76. # icons which Alpha contains cannot appear in menus.  You could
  77. # of course do a little hacking....
  78. set alpha::_icons {
  79.     {DanR "Think Reference" 265}
  80.     {OTEX "OzTeX" 266}
  81.     {*TEX "TeXtures" 267}
  82.     {XXXX "LaTeX" 270}
  83.     {*XeT "CMacTeX" 272}
  84.     {TeX+ "DirectTeX Pro" 299}
  85.     {CWIE "Codewarrior" 268}
  86.     {dogz "Cyberdog" 281}
  87.     {Vbib "BibTeX" 282}
  88.     {SLab "Scilab" 283}
  89.     {IGR0 "Igor Pro" 284}
  90.     {JAVC "Apple Applet Viewer" 285}
  91.     {MOSS "Netscape Navigator" 293}
  92.     {MOSS "Netscape Communicator" 294}
  93.     {MSIE "Microsoft Internet Explorer" 295}
  94.     {OlG1 "MacLynx" 296}
  95.     {DanR "Think Ref Viewer" 310}
  96.     {gsVR "Ghostview" 311}
  97.     {PnLF "Finger" 313}
  98.     {RZMI "MakeIndex" 314}
  99.     {FTCh "Fetch" 315}
  100.     {TGE+ "Tarmac" 316}
  101.     {Gzip "Gzip" 317}
  102.     {DStf "DropStuff" 318}
  103.     {SITx "StuffIt Expander" 319}
  104.     {ALTV "Programmer's Assistant" 400}
  105.     {MPAD "Mupad" 411}
  106.     {GPSE "Gnuplot" 415}
  107.     {Vodo "VOODOO" 500}
  108. }
  109.  
  110. namespace eval remote {}
  111.  
  112. ensureset "remote::site(Alpha's Home)" \
  113.   "ftp://www.cs.umd.edu/pub/faculty/keleher/Alpha/packages/"
  114. ensureset "remote::site(Alpha's Upload site)" \
  115.   "ftp://www.cs.umd.edu/pub/faculty/keleher/Alpha/up/"
  116. ensureset "remote::site(Vince's Alpha-D www site)" \
  117.   "http://www.santafe.edu/~vince/pub/Alpha/"
  118.  
  119. ensureset remote::listing {}
  120.  
  121.  
  122. set "keyboards(Australian)" {
  123.  {§1234567890-=[];'\`,./}
  124.  {±!@#$%^&*()_+{}:"|~<>?}
  125.  <U/[
  126.  <U/]
  127. }
  128. set "keyboards(Brasil)" {
  129.  {§1234567890'+º´ç~\<,.-}
  130.  {±!"#$%&/()=?*ª`Ç^|>;:_}
  131.  <I<U/8
  132.  <I<U/9
  133. }
  134. set "keyboards(British)" {
  135.  {§1234567890-=[];'\`,./}
  136.  {±!@£$%^&*()_+{}:"|~<>?}
  137.  <U/[
  138.  <U/]
  139. }
  140. set "keyboards(Canadian - CSA)" {
  141.  {/1234567890-=^ç;èàù,.é}
  142.  {\!@#$%?&*()_+¨Ç:ÈÀÙ'"É}
  143.  <I/7
  144.  <I/8
  145. }
  146. set "keyboards(Canadian - ISO)" {
  147.  {¬1234567890-=^ç;èàù,.é}
  148.  {°!"#$%?&*()_+¨Ç:ÈÀÙ'.É}
  149.  <I/7
  150.  <I/0
  151. }
  152. set "keyboards(Canadian - French)" {
  153.  {<1234567890-='[;`/¨,.é}
  154.  {>!@#$%?&*()_+"]:^|°<>ç}
  155.  <I/[
  156.  <I<U/[
  157. }
  158. set "keyboards(Danish)" {
  159.  {$1234567890+´å¨æø'<,.-}
  160.  {§!"#€%&/()=?`Å^ÆØ*>;:_}
  161.  <I<U/8
  162.  <I<U/9
  163. }
  164. set "keyboards(Dutch)" {
  165.  {§1234567890-=[];'\`,./}
  166.  {±!@#$%^&*()_+{}:"|~<>?}
  167.  <U/[
  168.  <U/]
  169. }
  170. set "keyboards(Español - ISO)" {
  171.  {º1234567890'¡`+ñ´ç<,.-}
  172.  {ª!"·$%&/()=?¿^*ѨÇ>;:_}
  173.  <I/´
  174.  <I/ç
  175. }
  176. set "keyboards(Finnish)" {
  177.  {§1234567890+´å¨öä'<,.-}
  178.  {°!"#€%&/()=?`Å^ÖÄ*>;:_}
  179.  <I<U/8
  180.  <I<U/9
  181. }
  182. set "keyboards(Flemish)" {
  183.  {@&é"'(§è!çà)-^$ù`<,;:=}
  184.  {#1234567890°_¨*%£>?./+}
  185.  <I/(
  186.  <I/)
  187. }
  188. set "keyboards(French)" {
  189.  {@&é"'(§è!çà)-^$ù`<,;:=}
  190.  {#1234567890°_¨*%£>?./+}
  191.  <I/(
  192.  <I/)
  193.  {'(' 0x17 ')' 0x1b}
  194. }
  195. set "keyboards(French - numerical)" {
  196.  {@&é"'(§è!çà)-^$ù`<,;:=}
  197.  {#1234567890°_¨*%£>?./+}
  198.  <I/(
  199.  <I/)
  200.  {'(' 0x17 ')' 0x1b}
  201. }
  202. set "keyboards(German)" {
  203.  {^1234567890ß´ü+öä#<,.-}
  204.  {°!"§$%&/()=?`Ü*ÖÄ^>;:_}
  205.  <I/8
  206.  <I/9
  207. }
  208. set "keyboards(Italian)" {
  209.  {@&"'(çè)£àé-=ì$ù§<,;:ò}
  210.  {#1234567890_+^*%°>?./!}
  211.  <I/(
  212.  <I/)
  213. }
  214. set "keyboards(Norwegian)" {
  215.  {'1234567890+´å¨øæ@<,.-}
  216.  {§!"#$%&/()=?`Å^ØÆ*>;:_}
  217.  <I<U/8
  218.  <I<U/9
  219. }
  220. set "keyboards(Spanish)" {
  221.  {[1234567890-=´`ñ;'<,.ç}
  222.  {]¡!#$%/&*()_+º¨Ñ:">¿?Ç}
  223.  <I<U/<
  224.  <U/[
  225. }
  226. set "keyboards(Swedish)" {
  227.  {§1234567890+´å¨öä'<,.-}
  228.  {°!"#€%&/()=?`Å^ÖÄ*>;:_}
  229.  <I<U/8
  230.  <I<U/9
  231. }
  232. set "keyboards(Swiss French)" {
  233.  {§1234567890'^è¨éà$<,.-}
  234.  {°+"*ç%&/()=?`ü!öä£>;:_}
  235.  <I/8
  236.  <I/9
  237. }
  238. set "keyboards(Swiss German)" {
  239.  {§1234567890'^ü¨öä$<,.-}
  240.  {°+"*ç%&/()=?`è!éà£>;:_}
  241.  <I/8
  242.  <I/9
  243. }
  244. set "keyboards(U.S.)" {
  245.  {§1234567890-=[];'\`,./}
  246.  {±!@#$%^&*()_+{}:"|~<>?}
  247.  <U/[
  248.  <U/]
  249. }
  250.